-- Este trigger se encarga de insertar el idPresupuesto recurriendo a una secuencia y la fecha de registro con el SYSDATE

CREATE OR REPLACE TRIGGER TR_Presupuestos
    BEFORE INSERT ON Presupuestos
    FOR EACH ROW

DECLARE
    valorSecuencia NUMBER := 0;
    fecha DATE;
BEGIN
    SELECT seq_idPresupuesto.NEXTVAL INTO valorSecuencia FROM DUAL;
    SELECT SYSDATE INTO fecha FROM DUAL;
    :NEW.idPresupuesto := valorSecuencia;
    :NEW.fechaPresupuesto := fecha;    
END;
/